﻿Public Class clsFecha

    Public Shared Function ObtenerMes(intMes As Integer)
        Select Case intMes
            Case 1
                Return "enero"
            Case 2
                Return "febrero"
            Case 3
                Return "marzo"
            Case 4
                Return "abril"
            Case 5
                Return "mayo"
            Case 6
                Return "junio"
            Case 7
                Return "julio"
            Case 8
                Return "agosto"
            Case 9
                Return "septiembre"
            Case 10
                Return "octubre"
            Case 11
                Return "noviembre"
            Case 12
                Return "diciembre"
            Case Else
                Return ""
        End Select
    End Function

End Class
